home *** CD-ROM | disk | FTP | other *** search
/ GeoSafari Geography / GeoSafari Geogra.iso / pc / geogeog / 00016_old launch.ls < prev    next >
Encoding:
Text File  |  1999-04-20  |  688 b   |  23 lines
  1. on exitFrame
  2.   if the machineType = 256 then
  3.     myFileIO = the pathName & "FileIO.DLL"
  4.     openXLib(myFileIO)
  5.   end if
  6.   if the machineType = 256 then
  7.     cdLetter = findCDLetter()
  8.     if symbolp(cdLetter) then
  9.       alert("Before you run GeoSafari Geography, you need to put the CD in.")
  10.     else
  11.       add(the searchPath, cdLetter & "movies")
  12.       go(1, cdLetter & "Geogrphy")
  13.     end if
  14.   else
  15.     if getNthFileNameInFolder("GeoSafari Geography:XObjMac:", 1) = EMPTY then
  16.       alert("Before you run GeoSafari Geography, you need to put the CD in.")
  17.     else
  18.       add(the searchPath, "GeoSafari Geography:movies")
  19.       go(1, "GeoSafari Geography:Geogrphy")
  20.     end if
  21.   end if
  22. end
  23.